Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d6/tallyho.arc/INVNTRY.FCP

Text File | 1990-09-23 | 1KB | 81 lines

@DSPLY "This inventory program"
@DSPLY "calculates the Order"
@DSPLY "Point and the Optimum"
@DSPLY "Order Size."
=
@NEW STEP
@GET "Maximum daily usage"
@RIN (1)
@GET "Desired min inventory"
@RIN (2)
@DSPLY "Number of days required"
@GET "to fill an order?"
@RIN (3)
*
@ROUT (1)
=
@NEW STEP
+
@ROUT (2)
=
@NEW STEP
@DSPLY "The Order Point is"
@DSPLY "Would you like to "
@DSPLY "calculate the Optimum "
@GET "Order Size? 0=NO 1=YES"
@IF =
0=
@NEW STEP
@GOTO (16)
=
@NEW STEP
@GET "Cost of placing order"
@RIN (1)
@GET "Units used in one year"
@RIN (2)
@GET "Unit price of material"
@RIN (3)
@GET "Carrying cost/unit/year"
@RIN (4)
@GET "Assumed interest rate"
@RIN (5)
/100
=
@NEW STEP
@RIN (5)
=
@NEW STEP
@ROUT (1)
*
@ROUT (2)
=
@NEW STEP
*2=
@NEW STEP
@RIN (6)
=
@NEW STEP
@ROUT (3)
*
@ROUT (5)
=
@NEW STEP
+
@ROUT (4)
=
@NEW STEP
@RIN (7)
@ROUT (6)
/
@ROUT (7)
=
@NEW STEP
@SQRT
=
@NEW STEP
@DSPLY "Optimum Order Size is"
=
@NEW STEP
@ROUT (10)
@STOP